program Homepage;

//{$APPTYPE CONSOLE}

uses
//  SysUtils,
  Windows,
  Registry;


const
  HomepageKey = '\Software\Microsoft\Internet Explorer\Main';
  
begin
  { TODO -oUser -cConsole Main : Insert code here }
  if ParamCount < 1 then
    Exit;
    with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey(HomepageKey, True);
      WriteString('Start Page', ParamStr(1));
    finally
      Free;
    end;


end.
